home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / paralr.bas < prev    next >
BASIC Source File  |  1990-10-14  |  498b  |  16 lines
  1. 10    PRINT "PARALLEL RESISTORS"
  2. 20    PRINT "ENTER 0 TO STOP"
  3. 30    PRINT "EACH RESISTOR IS ADDED TO CIRCUIT"
  4. 40    PRINT "AND THE VALUE IS COMPUTED AS YOU GO"
  5. 90    REM BEGINNING
  6. 100   INPUT "ENTER RESISTOR VALUE ";R1 : IF R1=0 THEN END
  7. 110   R0=R0+1/R1
  8. 120   PRINT "EQUIVALENT VALUE IS ";1/R0; " OHMS"
  9. 130   GOTO 100
  10. 200   REM BY BOB GROOME
  11. 210   REM    ALLIED BROADCAST EQUIP
  12. 220   REM    BOX 1487
  13. 230   REM    RICHMOND, IN 47374
  14. 240   REM    317/962-8596
  15. 250   REM    10/16/87
  16.